Top 10k strings from Spectroskop (1983)(Astro-Service Maitenbeth).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 z$=z$+".0"
   2 p(j)=p(j)-y
   2 haus=(z$="p"
   2 ;"OCH ";z$:
   2 ;"LACIDUS oder ";
   2 ;"Haeuser nach ";
   2 ;"Eingabe:";z
   2 ;":Menue";z$:
   2 );" {Vergl.} ";b$(
   2 )+" "+t$(q)
   2 (p(i)-p(j)):
   1 z=(ra1+ra2)/2
   1 z2=z-z1*30
   1 z$="0"+z$:
   1 yy=(p(i)+p(j))/2
   1 yy=(c(i)+c(j))/2
   1 x=uhr0/3600
   1 w()=(65536
   1 uhr=uhr0+dt:
   1 uhr=uhr-86400
   1 uhr0=x*3600
   1 uhr0=uhr0+120
   1 u(dr*(x+y*t1)):
   1 u(259.183275
   1 u((c(i)+m(i))/2
   1 u((6.6460656
   1 u%,74.02834
   1 t=t1*36525
   1 t1=(t2+t3)/2
   1 t1=(jd-2447103.5
   1 rad=rad-11
   1 p(i)=m(i):
   1 p$(j);"|";:
   1 p$(j);"|";
   1 p$(j);"/";p$(i);"|";:
   1 p$(j);"/";p$(i);"|";
   1 p$(i);"= ";:
   1 p$(i);"= ";
   1 m(i)=p(i):
   1 k{J#,1.52369
   1 i(n)=i(n)+360
   1 i(n)=h(n):
   1 h333,26.12999
   1 gz=gz0+dt/3600
   1 gz=gz-lg/15
   1 g$=g$+":"+y$+":"+z$+" "
   1 g$=" "+q$(n)+" "
   1 g$;z$;":";:
   1 g$;z$;":";
   1 ffff,3.3936
   1 ec=dr*(23.452294
   1 dez=(z$="d")
   1 c(i)=p(i):
   1 b$'"    {}"'n$(1
   1 a$=a$+n$(1
   1 a$=" Aspekte:
   1 \),.772917
   1 X,41.29466
   1 T,.985600266
   1 T*t1+.002078
   1 MENUE: Vergleich"'''
   1 LQ-.0130125
   1 G,108.9975
   1 Claude Debussy  
   1 BND STOP; "ENTER" druecken "
   1 =,174.8704
   1 =,145.79667
   1 ;r$(i);z$:
   1 ;i;" ";a$;
   1 ;,149472.516
   1 ;"rucken";z$:
   1 ;"rucken";a$:
   1 ;"rucken";a$(1
   1 ;"rad/min ";z$:
   1 ;"oroskop":
   1 ;"ezimal oder ";
   1 ;"ergleich; ";
   1 ;"enue";z$:
   1 ;"Stunden:":
   1 ;"Start: ";
   1 ;"Orbis:";z$,
   1 ;"Name"'"Datum"'" Zeit
   1 ;"Halbsummen","Orbis:";:
   1 ;"Eingabe:";z$:
   1 ;"Eingabe 2.Horoskop":
   1 ;"E N D E":
   1 ;"Breite:  n/s":
   1 ;"BAND STOP; ""ENTER"" druecken ";
   1 ;":Vergleich"''
   1 ;":Menue"''
   1 ;":Horoskop"''
   1 ;":Halbsummenvergleich"''
   1 ;":Halbsummen"''
   1 ;":Ende"''
   1 ;":Composite"''
   1 ;":Aspektvergleich"''
   1 ;":Aspekte"''
   1 ;" Composite"'
   1 4n,223.0333
   1 22.08.1862
   1 -p(w))*dr):
   1 -p(w))*dr)
   1 -1934.142008
   1 ,58517.8068
   1 ,35999.0497
   1 ,358.47584
   1 ,270.434164
   1 ,19139.861
   1 ,13.1763965
   1 ,13.0649924
   1 ,1222.1346
   1 ,1.3097314
   1 ,-11.31651
   1 +2400.0513
   1 *t1*t1+gz)*15
   1 )+":"+z$(2
   1 )+"19"+z$(7
   1 )+"0"+z$(4
   1 )+"."+y$(4
   1 )+" {Vergl.} "+b$(
   1 (y(n)-y(w))<8
   1 (xx-d(n)):
   1 (x/mm)*mm)
   1 (x(n)-x(w))<8
   1 (uhr-x*xx-y*60
   1 (rd*(l1-l))>10
   1 (p(i)-c(j))
   1 (i(w)*dr):
   1 (c(i)-m(i)):
   1 (c(i)-c(j)):
   1 ((z2-z3)*60
   1 ((uhr-x*xx)/60
   1 ''p$(k);"= ";:
   1 ''p$(k);"= ";
   1 "Halbsummen","Orbis:";z$
   1 "+y$+"'"+z$+""""
   1 !*t1+2.58e-5
   1  Zone"'" Laenge   o/w"'" Breite   n/s"
   1  ROETTGER HOFMANN
   1  Orb. 1:   Orb. 2:   Orb. s:
   1  4:30:00 C
   1  4.10.1983